home *** CD-ROM | disk | FTP | other *** search
| Text File | 1989-03-08 | 825 b | 44 lines | [TEXT/EDIT] |
- set exit 0
- set sources ""
- set options ""
- set linkfiles ""
- set main ""
-
- for i in {parameters}
- if "{i}" =~ /-≈/
- set options "{options} {i}"
- else if "{i}" =~ /≈ ≈/
- echo Simula can∂'t handle blanks in sourcefile names: ∂""{1}"∂" not compiled
-
- else
- set sources "{i} {sources}"
- if {main} != ""
- set linkfiles "{linkfiles} {i}.sim.o"
- else
- set main "{i}"
- end if
- end if
-
- end for
- for i in {sources}
- "simula" -p {options} -n -s {i}
- exit if {status}
- setfile -t TEXT -c 'MPS ' {i}.atr
- setfile -t TEXT -c 'MPS ' {i}.a
- echo assembling: {i}.a
- asm -wb {i}.a -o {i}.sim.o
- end for
-
- echo -n "Iinking {main} "
- if "{linkfiles}" <> 0
- echo with: {linkfiles}
- else
- echo
- end if
-
- Link -w -t MPST -c 'MPS ' ∂
- {main}.sim.o {linkfiles} ∂
- {libraries}simrtslib ∂
- {libraries}runtime.o ∂
- {libraries}interface.o ∂
- -o {main}